SETTEMP wlc_pt1 = "\n\nNow that you have completed the "
IF pers_fam_mode = "personal"
SETTEMP ptPart1 = "PERSONAL ACTIVITIES for ",name
SETTEMP cap1 = "you enjoy"
ELSE
SETTEMP ptPart1 = " FAMILY ACTIVITIES - ",familyLastName," Family"
SETTEMP cap1 = "the family members enjoy"
ENDIF
SETTEMP ptStrtext = ptPart1,wlc_pt1,pers_fam_mod," pastimes section, you are ready to enter the ",pers_fam_mode," activities section. Here you can share information about the activities that "
SETTEMP ptStrtext = ptStrtext,cap1
SETTEMP ptStrtext = ptStrtext,".\n\nThis section will contain four activity items.\n\nThe four items are chosen from a category, such as 'Clubs', 'Hobbies', and so on. The category helps the wizard provide the proper page decorations and ask the right questions.\n\nYou can change these later by modifying what you wrote or by simply replacing an entire item."
BACKSTOP
PAGE
TYPE DESCRIPTION
WIZPIC_RE wizPic
DESCRIPTION_RE ptStrtext
ENDIF
GOSUB InitActsVars
SETTEMP base = pastimeVarRoot,"actType"
SET eval( base,1 ) = "Team Sports"
SET eval( base,2 ) = "Hobby"
SET eval( base,3 ) = "Club"
SET eval( base,4 ) = "Volunteer"
SETTEMP txt1nA = "ADD AN ACTIVITY. You are now entering the "
SETTEMP txt1nB = " of four ",pers_fam_mode," activity items."
;xxxxxxxxxxxxxxxxxx REPLACE AN ACTIVITY xxxxxxxxxxxxxxxxxxxxxxx
[ReplaceActivityData]
IF pastimeVarRoot = ""
SETTEMP wizPic = "wizpics\wizactv.gif"
ELSE
SETTEMP wizPic = "wizpics\wizpactv.gif"
ENDIF
IF beenOnce <> 1
SETTEMP inpL2 = 1
ENDIF
SETTEMP base = pastimeVarRoot,"actLinkText"
SETTEMP actslinkTextVar1 = base,"1"
SETTEMP actslinkTextVar2 = base,"2"
SETTEMP actslinkTextVar3 = base,"3"
SETTEMP actslinkTextVar4 = base,"4"
SETTEMP txt1nA = "REPLACE AN ACTIVITY. You are now changing the "
SETTEMP txt1nB = " activity item. If you choose the same type as before, you can make changes to what you wrote before. If you choose a new type, you can enter new information to replace the old activity completely."
GOSUB SetACPromptVars
BACKSTOP LastActv
PAGE
WIZPIC_RE wizPic
TYPE RADIOBUTTONS
NAME inpL2
DESCRIPTION_RE "PICK ONE TO REPLACE\nYou can replace one or more of the '",pers_fam_mode," activities' that you have previously entered. You need not keep to the same types of activities you have already, but rather you can enter them in any combination.\n\nSelect one of these to replace."
ARGUMENT "&1. ",eval( actslinkTextVar1 )@1
ARGUMENT "&2. ",eval( actslinkTextVar2 )@2
ARGUMENT "&3. ",eval( actslinkTextVar3 )@3
ARGUMENT "&4. ",eval( actslinkTextVar4 )@4
ARGUMENT "&Done changing the activities."@5
NOPREVIOUS
IF inpL2 <> 5
; get data for activity to replace
SETTEMP nActivity = inpL2
BACKSTOP
SETTEMP nNumber = nActivity
GOSUB Ordinal
SETTEMP ptPrmptext = txt1nA,ordinal,txt1nB,txt1n,pers_fam_mode,txt2n,acSeltext,"use for this activity item."
GOSUB GetActivityData
SETBACKSTOP LastActv
IF pastimeVarRoot = ""
SETTEMP PastimesBuild = YY
ELSE
SETTEMP doBuild = YY
ENDIF
SETTEMP inpL2 = 5
SETTEMP beenOnce = 1
GOTO ReplaceActivityData ; do another
ENDIF
SETTEMP beenOnce = 0
;xxxxxxxxxxxxxxxxxxxx INPUT AN ACTIVITY xxxxxxxxxxxxxxxxxxx
[GetActivityData]
GOSUB SetActVars
;SETTEMP activity1 = "Team Sports"
;SETTEMP activity2 = "Hobby"
;SETTEMP activity3 = "Club"
;SETTEMP activity4 = "Volunteer"
;SETTEMP activity5 = "Personal Sports"
SETTEMP ac_club = "A Club"
SETTEMP ac_hobby = "A Hobby"
SETTEMP ac_sport = "A Sport"
SETTEMP ac_vol = "Volunteer Work"
SETTEMP ac_team = "Team Sports"
SETTEMP oldActType = actType
; get activity type
PAGE
NAME actType
TYPE RADIOBUTTONSWITHTEXT
WIZPIC_RE wizPic
DESCRIPTION_RE ptPrmptext
ARGUMENT "&Team Sports"@Team Sports@"\nUse this category for team sports that you play.\n\nTell everyone how you enjoy playing for this team, and how the team is doing."
ARGUMENT "&Hobby"@Hobby@"\nWho doesn't have at least one hobby?\n\nUse this category to describe a hobby of any type."
ARGUMENT "&Club"@Club@"\nUse this category to tell about a club or an organization that you participate in.\n\nLet the rest of the family know why you enjoy it."
ARGUMENT "&Volunteer"@Volunteer@"\nUse this category to tell about a volunteer activity that you participate in.\n\nLet others know how you give of yourself."
ARGUMENT "P&ersonal Sports"@Personal Sports@"\nUse this category for personal sports, such as body-building, skiing, or if you are an avid golfer or bowler.\n\nTell the whole family about the sports that you like to participate in."
IF actType <> oldActType
SETTEMP actTextA = ""
SETTEMP actTextB = ""
SETTEMP actTextC = ""
SETTEMP actTextD = ""
SETTEMP actTextE = ""
SETTEMP actTextF = ""
ENDIF
IF pers_fam_mode = "personal" && actTextC = ""
SETTEMP actTextC = name
ENDIF
BACKSTOP
IF actType = "Team Sports"
GOSUB GetTeamSportData
ENDIF
IF actType = "Club"
GOSUB GetClubData
ENDIF
IF actType = "Hobby"
GOSUB GetHobbyData
ENDIF
IF actType = "Personal Sports"
GOSUB GetPersonalSportData
ENDIF
IF actType = "Volunteer"
GOSUB GetVolunteerData
ENDIF
SET eval( actLinkTextVar ) = actLinkText
SET eval( actTypeVar ) = actType
SET eval( actTextAVar ) = actTextA
SET eval( actTextBVar ) = actTextB
SET eval( actTextCVar ) = actTextC
SET eval( actTextDVar ) = actTextD
SET eval( actTextEVar ) = actTextE
SET eval( actTextFVar ) = actTextF
[GetClubData] ;xxxxxxxxxxx CLUB xxxxxxxxxx
PAGE
TYPE MULTIPLEEDITS
WIZPIC_RE wizPic
DESCRIPTION_RE "Enter the name of the club, the type of club, and who belongs to the club.\n\nFor the club name, put its formal name. For the type, provide a general category such as civic, extra-curricular, competition, fun, and so on. List any family members who are members of this club."
ARGUMENT Name of the &club:@actTextA
ARGUMENT Typ&e of club:@actTextB
ARGUMENT &Family members who belong:@actTextC
IF actTextA = "" || actTextA = ac_club
SET actTextA = ac_club
SET actLinkText = ac_club
ELSE
SET actLinkText = ac_club,": ",actTextA
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
DESCRIPTION_RE "How long have you been a member of this club? Write out the month and year. Put your answer in the box below. Also tell how many other members there are in the club. Share other info about the club. Talk about the club, why you like belonging, who else is in the club, and a brief description of what the club is about and how you participate."
WIZPIC_RE wizPic
ARGUMENT &Member since:@actTextD
ARGUMENT &How many members:@actTextE
ARGUMENT &About the club:@actTextF
[GetHobbyData] ;xxxxxxxxxxx HOBBY xxxxxxxxxx
SETTEMP hob_p1 = "Fill in a name for the hobby (for example `Rare Stamps' or `Model Trains') and the type of hobby (collecting, building, etc.). Also enter the names of the family members who enjoy this hobby."
SETTEMP hob_p2 = "Fill in below how often you get to spend time on this hobby, how long you have been active with this hobby (for example, `for ten years' or `since 1983'), and a brief description of what you do and how you enjoy it."
;
PAGE
TYPE MULTIPLEEDITS
WIZPIC_RE wizPic
DESCRIPTION_RE hob_p1
ARGUMENT Name of the &hobby:@actTextA
ARGUMENT Typ&e of hobby:@actTextB
ARGUMENT &Family members who enjoy hobby:@actTextC
IF actTextA = "" || actTextA = ac_hobby
SET actTextA = ac_hobby
SET actLinkText = ac_hobby
ELSE
SET actLinkText = ac_hobby,": ",actTextA
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC_RE wizPic
DESCRIPTION_RE hob_p2
ARGUMENT &How often:@actTextD
ARGUMENT &Experience:@actTextE
ARGUMENT &About my hobby:@actTextF
[GetTeamSportData] ;xxxxxxxxxxx TEAM SPORTS xxxxxxxxxx
SETTEMP psp_p1 = "Fill in the name of the team sport you play and the name of your team.\n\nAlso, fill in names of the family members who play on this team."
SETTEMP psp_p2 = "Fill in more details about you and the team. What position do you play for the team? How is the team doing so far this season? What's the won/lost record?\n\nTell all about the team. How is the team doing? How are you doing and what are the team's chances? Add anything else you would like to share about the team."
PAGE
TYPE MULTIPLEEDITS
WIZPIC wizpics\golfwiz.gif
DESCRIPTION_RE psp_p1
ARGUMENT Type of &sport:@actTextA
ARGUMENT Name of the &team:@actTextB
ARGUMENT &Family members who participate:@actTextC
IF actTextA = "" || actTextA = ac_sport
SET actTextA = ac_sport
SET actLinkText = ac_sport
ELSE
SET actLinkText = ac_sport,": ",actTextA
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\golfwiz.gif
DESCRIPTION_RE psp_p2
ARGUMENT Po&sition played:@actTextD
ARGUMENT &Team record:@actTextE
ARGUMENT &About the team:@actTextF
[GetPersonalSportData] ;xxxxxxxxxxx PERSONAL SPORTS xxxxxxxxxx
SETTEMP psp_p1 = "Fill in the name of the sport you participate in and the type of sport (varsity, junior league, amateur, professional, etc.). Fill in the names of the family members who participate in this sport."
SETTEMP psp_p2 = "How often do you participate in this sport and how do you find it rewarding? Also provide a brief description of your involvement in the sport (I play center field, I am the goalie, etc.). Also tell how you enjoy your participation."
PAGE
TYPE MULTIPLEEDITS
WIZPIC wizpics\golfwiz.gif
DESCRIPTION_RE psp_p1
ARGUMENT Name of the &sport:@actTextA
ARGUMENT Typ&e of sport:@actTextB
ARGUMENT &Family members who participate:@actTextC
SETTEMP vol_p1 = "Fill in the name of the volunteer organization that you participate in (for example, `Red Cross' or `March of Dimes') and the type of volunteer work (for example, `Fund Raising' or `Member Drive' or `Helping Less Fortunate'). Fill in the names of family members who volunteer their time for this."
SETTEMP vol_p2 = "How often do you do this volunteer work? How do you find it rewarding? Provide a short description of the volunteer work that you do. Fill all of this in the spaces provided."
SETTEMP txt1n = "\n\nSelect the category for this "
SETTEMP txt2n = " activity. The type you choose is used to determine how this item's page on the Web site is styled. It also governs what questions you will be asked to complete this item."
SETTEMP acSeltext = "\n\nSelect one of the types of activities listed below to "
